home *** CD-ROM | disk | FTP | other *** search
Wrap
<?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" > <background> <id>2672</id> <filler1>0</filler1> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <link rel="stylesheet" type="text/css" href="stylesheet_3240.css" /> <part> <id>1</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>0</left> <top>52</top> <right>512</right> <bottom>342</bottom> </rect> <style>scrolling</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Monaco</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>12</textHeight> <name>txt</name> <script></script> </part> <part> <id>2</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>0</left> <top>0</top> <right>447</right> <bottom>20</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Monaco</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>12</textHeight> <name>class</name> <script></script> </part> <part> <id>3</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>0</left> <top>20</top> <right>446</right> <bottom>37</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Monaco</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>12</textHeight> <name>section</name> <script></script> </part> <part> <id>4</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>0</left> <top>37</top> <right>446</right> <bottom>52</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Monaco</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>12</textHeight> <name>part</name> <script></script> </part> <name></name> <script>on importThesaurus-- bring in the text --- start a new card at every "#" signput "Roget's Thesaurus 1911" into fnameopen file fnamerepeat foreverdoMenu "New Card"read from file fname until "#"if It is empty then exit repeatput It into field "txt"end repeatclose file fnameend importThesaurus</script> </background>